norm_2_complex Function

public function norm_2_complex(a) result(result)

function that calculates the Euclidean norm (L2 norm or modulus) of a vector $\vec{a}$, where $\vec{a} \in \mathbb{C}^n$ $$||\vec{a}||_2 = \sqrt{\sum_{i=1}^{n} |a_i|^2} \quad \text{ with } \quad \sum_{i=1}^{n} |a_i|^2 = \vec{a} \cdot \overline{\vec{a}}$$ where $n$ is the dimension of the complex vector $\vec{a}$.

Arguments

Return Value real(kind=dp)

    FUNCTION norm_2_complex(a) RESULT(result)

        COMPLEX(dp), DIMENSION(:) :: a
        REAL(dp) :: result

        result = SQRT(REAL(DOT_PRODUCT(a, CONJG(a))))
    
    END FUNCTION norm_2_complex